BUILTE.NEW[1,JRA] - www.SailDart.org

perm filename BUILTE.NEW[1,JRA] blob sn#026662 filedate 1973-02-23 generic text, type T, neo UTF8

00100	
00200	
00300	(DEFPROP BUILTED1 
00400	 (LAMBDA(X)
00500	  (COND ((ATOM X) X)
00600		((ATOM (CAR X))
00650	(COND((EQ(CAR X)@DEMOD)(SETQ DDEPTH(CADDR X))(SETQ DLIST(*CL (CADR X)))NIL)
00675	(T (CONS (CAR X) (BUILTED1 (CDR X))))))
00700		((EQ (CAAR X) (QUOTE DEMOD)) (SETQ DDEPTH (CADDAR X)) (SETQ DLIST (*CL (CADAR X))) (BUILTED1 (CDR X)))
00800		(T (CONS (BUILTED1 (CAR X)) (BUILTED1 (CDR X)))))) 
00900	EXPR)